home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE09 / DBDESIGN / DBDESIGN.ZIP / demoform.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1996-03-30  |  3.3 KB  |  126 lines
  1. unit Demoform;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, Dbdesign, DBTables, Grids, Mask,
  8.   ExtCtrls;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     ScrollBox: TScrollBox;
  13.     Label1: TLabel;
  14.     EditOrderNo: TDBEdit;
  15.     Label2: TLabel;
  16.     EditCustNo: TDBEdit;
  17.     Label3: TLabel;
  18.     EditEmpNo: TDBEdit;
  19.     Label4: TLabel;
  20.     EditAmountPaid: TDBEdit;
  21.     DBGrid1: TDBGrid;
  22.     DBNavigator: TDBNavigator;
  23.     Panel1: TPanel;
  24.     Panel2: TPanel;
  25.     Panel3: TPanel;
  26.     OrdersSource: TDataSource;
  27.     Orders: TTable;
  28.     OrdersOrderNo: TFloatField;
  29.     OrdersCustNo: TFloatField;
  30.     OrdersSaleDate: TDateTimeField;
  31.     OrdersShipDate: TDateTimeField;
  32.     OrdersShipToContact: TStringField;
  33.     OrdersShipToAddr1: TStringField;
  34.     OrdersShipToAddr2: TStringField;
  35.     OrdersShipToCity: TStringField;
  36.     OrdersShipToState: TStringField;
  37.     OrdersShipToZip: TStringField;
  38.     OrdersShipToCountry: TStringField;
  39.     OrdersShipToPhone: TStringField;
  40.     OrdersShipVIA: TStringField;
  41.     OrdersPO: TStringField;
  42.     OrdersEmpNo: TIntegerField;
  43.     OrdersTerms: TStringField;
  44.     OrdersPaymentMethod: TStringField;
  45.     OrdersItemsTotal: TCurrencyField;
  46.     OrdersTaxRate: TFloatField;
  47.     OrdersTaxTotal: TCurrencyField;
  48.     OrdersFreight: TCurrencyField;
  49.     OrdersAmountPaid: TCurrencyField;
  50.     OrdersAmountDue: TCurrencyField;
  51.     Cust: TTable;
  52.     CustCustNo: TFloatField;
  53.     CustCompany: TStringField;
  54.     CustAddr1: TStringField;
  55.     CustAddr2: TStringField;
  56.     CustCity: TStringField;
  57.     CustState: TStringField;
  58.     CustZip: TStringField;
  59.     CustCountry: TStringField;
  60.     CustPhone: TStringField;
  61.     CustFAX: TStringField;
  62.     CustTaxRate: TFloatField;
  63.     CustContact: TStringField;
  64.     CustLastInvoiceDate: TDateTimeField;
  65.     CustSource: TDataSource;
  66.     EmpsSource: TDataSource;
  67.     Emps: TTable;
  68.     EmpsEmpNo: TIntegerField;
  69.     EmpsFullName: TStringField;
  70.     EmpsLastName: TStringField;
  71.     EmpsFirstName: TStringField;
  72.     EmpsPhoneExt: TStringField;
  73.     EmpsHireDate: TDateTimeField;
  74.     EmpsSalary: TFloatField;
  75.     LastItemSource: TDataSource;
  76.     LastItemQuery: TQuery;
  77.     CustUpdate: TTable;
  78.     CustUpdateCustNo: TFloatField;
  79.     CustUpdateLastInvoiceDate: TDateTimeField;
  80.     Parts: TTable;
  81.     PartsPartNo: TFloatField;
  82.     PartsVendorNo: TFloatField;
  83.     PartsDescription: TStringField;
  84.     PartsOnHand: TFloatField;
  85.     PartsOnOrder: TFloatField;
  86.     PartsCost: TCurrencyField;
  87.     PartsListPrice: TCurrencyField;
  88.     NextOrd: TTable;
  89.     NextOrdNewKey: TFloatField;
  90.     Items: TTable;
  91.     ItemsItemNo: TFloatField;
  92.     ItemsOrderNo: TFloatField;
  93.     ItemsPartNo: TFloatField;
  94.     ItemsDescription: TStringField;
  95.     ItemsSellPrice: TCurrencyField;
  96.     ItemsQty: TIntegerField;
  97.     ItemsDiscount: TFloatField;
  98.     ItemsExtPrice: TCurrencyField;
  99.     ItemsSource: TDataSource;
  100.     DBGrid2: TDBGrid;
  101.     Label5: TLabel;
  102.     Label6: TLabel;
  103.     DBDesign1: TDBDesign;
  104.     procedure FormCreate(Sender: TObject);
  105.   private
  106.     { Private-Deklarationen }
  107.   public
  108.     { Public-Deklarationen }
  109.   end;
  110.  
  111. var
  112.   Form1: TForm1;
  113.  
  114. implementation
  115.  
  116. {$R *.DFM}
  117.  
  118. procedure TForm1.FormCreate(Sender: TObject);
  119. begin
  120.   Orders.Open;
  121.   Cust.Open;
  122.   Items.Open;
  123. end;
  124.  
  125. end.
  126.